// ========================================================== //
// ======================= BEBOP 1.0 ======================== //
// Fonctions utilisées dans les .c produits à partir des .bop //
// ========================================================== //


#include "bop2c.h"

void pipe01(char *s, int num, FILE *fic)
{
    int r = 0;
    unsigned char c = ' ';

    for( r=0; r<num; r++){
	c = fgetc(fic);
	if (c == '\n'){
	    fprintf(stderr, "PROTOCOLE PIPE 01 ERROR\n");
	    fprintf(stderr, "arite donnee : %d, attendue : %d\n", r, num);
	    fflush(stderr);
	    exit(1);    
	}
	s[r] = c;
    }

    while (c != '\n'){
	c = fgetc(fic);
    }
}
